   6 :RETURN 
  20 BC=5;FC=33;F=1006;T=5;S=0;Q=1
  70 FOR Z=0TO 60;@(Z)=0;NEXT Z
 100 FOR Z=1TO RND (30)
 110 A=RND (3)
 120 B=RND (60)
 130 IF @(B)>0GOTO 120
 140 @(B)=A;NEXT Z
 160 CLEAR ;A=1
 170 GOSUB 300
 180 GOSUB 5000
 190 GOTO 6000
 200 BOX 0,-14,160,52,2;RETURN 
 300 P=RND (3)-2;M=0;C=RND (80)+9
 310 FOR Z=1TO 60;IF @(Z)=3M=M+1
 320 NEXT Z
 340 IF M=0PRINT "ALL ALIENS DESTROYED!";PRINT "RETURN TO BASE!";A=2
 360 RETURN 
1000 Q=Q×(-1);S=S+Q
1030 IF S>60S=60;D=0
1040 IF S<0S=0
1050 F=F-10;IF F<0GOTO 5000
1070 GOSUB 5000
1080 IF S=0D=0;GOTO 1110
1090 IF D=1GOTO 2000
1100 GOTO 6000
1110 IF F>0IF M=0PRINT "YOU WON!";GOTO 20
1120 GOTO 6000
2000 F=F-5
2020 IF @(S)=0GOTO 2500
2025 NT=3
2030 IF @(S)=1GOTO 2600
2040 IF @(S)=2GOTO 2700
2050 PRINT "ALIEN SHIP IN SECTOR!"
2060 IF T>0PRINT "SUB-SECTOR",#9,C
2070 X=RND (2);IF X=2GOTO 2120
2080 IF X=1PRINT "ALIEN HAS FIRED MISSLE!"
2090 X=RND (3);IF X=1PRINT "YOU HAVE BEEN HIT!";F=F-100
2110 IF A=1IF X=1GOTO 2610
2115 IF X=1IF A=2GOTO 9000
2117 PRINT "HE MISSED!"
2120 IF T<1GOTO 2530
2130 IF D=1D=0;GOTO 3003
2140 GOTO 3000
2500 PRINT "SECTOR EMPTY!"
2530 IF D=1S=S+Q;GOTO 1030
2540 GOTO 180
2600 PRINT "METEOR STORM!"
2610 E=RND (2);IF E=1PRINT "HEAVY",;F=F-50
2630 IF E=2PRINT "LIGHT",;F=F-10
2660 PRINT " DAMAGE!";GOSUB 5000
2665 IF X=1D=0;X=0
2670 GOTO 2530
2700 PRINT "FUEL STATION!";IF T=0T=5;D=0;GOTO 2750
2705 IF M=0GOTO 2750
2710 IF F>499GOTO 2530
2750 F=F+500
2760 IF F>1006F=1006
2775 @(S)=0;IF D=1GOTO 2530
2780 GOTO 180
3000 INPUT "INPUT SUB-SECTOR"L;GOTO 3005
3003 L=C;PRINT "FIRE MISSLE!";GOSUB 310
3005 CY=0;T=T-1;C=C+P
3010 GOSUB 200
3020 IF L=CPRINT "ALIEN DESTROYED!";@(S)=0;GOTO 170
3030 PRINT "MISSED!";GOSUB 5020
3050 GOTO 2060
5000 NT=0
5020 CY=44;F=F-1;IF A=1F=F-5
5030 IF F<100A=2
5040 PRINT "LOCATION:SECTOR",#4,S
5050 PRINT "SHIELDS ",
5060 IF A=1PRINT "UP"
5070 IF A=2PRINT "DOWN"
5080 IF M#0PRINT "MISSLES:",#11,T
5083 IF M=0PRINT "FUEL NEEDED:",#7,S×16
5085 IF F<0F=0
5090 PRINT "FUEL:",#14,F
5095 GOSUB 200
5100 IF F<1GOTO 9000
5103 IF M>0IF A=2PRINT "DANGER!"
5105 IF T=0PRINT "FIND FUEL STATION!"
5110 IF F<200PRINT "FUEL LOW!"
5130 RETURN 
6000 GOSUB 200
6003 IF S=60PRINT "OUTER LIMITS";GOTO 6010
6005 PRINT 
6010 PRINT "1-COMPUTER CONTROL"
6020 PRINT "2-REVERSE"
6030 IF S=0PRINT "3-REFUEL"
6040 IF T>0IF @(S)=3PRINT "4-FIRE MISSLE"
6050 IF &(23)=8D=1;GOTO 2530
6060 IF &(22)=8D=1;GOTO 1000
6070 IF &(21)=8IF S=0GOTO 2750
6080 IF &(23)=4GOTO 3000
6100 GOTO 6050
9000 NT=9;PRINT "LIFE SUPPORTS FAILING!";PRINT "ALIENS HAVE WON!";GOTO 20
RUN 
